Ucitati prirodan broj n i elemente niza x duzine n. Prikazati vrednost drugog po velicini
elementa niza.

Sub zad6()
Dim x(100) As Double, n As Long, i As Long, max2 As Double, max1 As Double
Open "najveci.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
If x(1) > x(2) Then
max1 = x(1)
max2 = x(2)
Else
max1 = x(2)
max2 = x(1)
End If
For i = 3 To n
If x(i) > max1 Then
max2 = max1
max1 = x(i)
ElseIf x(i) > max2 Then
max2 = x(i)
End If
Next
MsgBox ("Drugi po velicini je " & max2)
End Sub

